﻿Namespace My

    ' The following events are available for MyApplication:
    ' 
    ' Startup: Raised when the application starts, before the startup form is created.
    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
    ' UnhandledException: Raised if the application encounters an unhandled exception.
    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
    Partial Friend Class MyApplication

        Private Sub MyApplication_UnhandledException(sender As Object, e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
            Dim ErrStr As String
            If TypeOf e.Exception Is Net.WebException Then
                ErrStr = "网络错误"
            Else
                ErrStr = "未知错误"
            End If
            Dim Result As MsgBoxResult = MsgBox(ErrStr, MsgBoxStyle.AbortRetryIgnore Or MsgBoxStyle.Critical, "Error")
            If Result = MsgBoxResult.Ignore Then
                e.ExitApplication = False
            ElseIf Result = MsgBoxResult.Retry Then
                frmMain.Restart()
            Else
                e.ExitApplication = True
            End If
        End Sub

    End Class

End Namespace

